home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / ftlogo.zip / LOOPS.LF < prev    next >
Text File  |  1988-03-12  |  213b  |  14 lines
  1. PPROP ".SYSTEM "BURY "TRUE
  2. TO DOWHILE :COND :ACTION
  3. IF NOT RUN :COND [STOP]
  4. RUN :ACTION
  5. DOWHILE :COND :ACTION
  6. END
  7.  
  8. TO DOUNTIL :COND :ACTION
  9. RUN :ACTION
  10. IF RUN :COND [STOP]
  11. DOUNTIL :COND :ACTION
  12. END
  13.  
  14.